CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_6984.txt

Text File | 1990-10-02 | 8KB | 337 lines

-- card: 6984 from stack: in.03 –µ–µ–µ
-- bmap block id: 5390
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,demonDead,chase,blasting,eDoorOpen
  if direction = "up" then
    beep
    put "You can't reach the opening." into field 3
    exit move
  end if
  if direction = "west" then
    if eDoorOpen
    then
    if demonDead then
      go to card id 13815
    else
      go to card id 13242
    end if
  else
    beep
    put "The door is locked.  You can not go that way." into field 3
  end if
  exit move
end if
pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,eDoorOpen
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="key" then
    put "The door leading east is now unlocked and you may pass through." into field 3
    put true into eDoorOpen
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=47 top=226 right=262 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=191 top=206 right=242 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=63 top=148 right=184 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=21 top=188 right=224 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=182 top=126 right=162 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=11 top=226 right=262 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=93 top=0 right=20 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a shaft leading up" into field 3
    put false into examFlag
  else
    put "up" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=93 right=187 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,eDoorOpen,demonDead,takeFlag
  if examFlag then
    put "a barred door leading west.  The door is unlocked.  " into field 3
    if demonDead=false then
      put "  Peering through the bars you can see the orb of power " after field 3
      put "in the dimly lit room beyond!" after field 3
    end if
    put false into examFlag
  else
    if takeFlag then
      put "You can't take the door." into field 3
      put false into takeFlag
    else
      put "west" into direction
      send move to card id cardID
    end if
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=174 right=218 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Look, I don't want to get gross here, but the body is badly decayed.  You really don't want it." into field 3
    put false into takeFlag
  else
    put "A body.  Quite dead." into field 3
    put false into examFlag
  end if
end mouseUp



-- part contents for background part 25
----- text -----
Round Room
(looking north)

-- part contents for background part 24
----- text -----
You are in a round room.  There is a doorway to the west with a door made of massive iron bars.  There is a hole in the ceiling.  In the center of the floor is the body of an unsuccessful adventurer who appears to have broken his neck.  It looks like it has been there quite some time (yeech).

-- part contents for background part 36
----- text -----
1